use strict;

BEGIN
{
	push @INC,"./class";
}
END
{
	pop @INC,"./class";
}

use XML::Simple;
use Entry;
use Data::Dumper;

my $xml=new XML::Simple;
my $a=$xml->XMLin('./entry.xml');

#print Dumper($a);

#open H,">entry.txt";
#print H Dumper($a);
#close H;

my $entry=new Entry();
$a=$entry->Parse($a);

#print Dumper($a);

